##################################################################################################################################
#
# Copyright (C) 2008-2012 Mind System Connection. Lda. Part of Daidze Software, created by Siqsuruq. All other rights reserved.
#
# Mind System Connection Webpage: www.msysc.org
# Daidze Software Page: www.daidze.com www.daidze.org
# E-mail: admin@msysc.org, siqsuruq@gmail.com
#
##################################################################################################################################

proc return_list {} {
	return [list value1 value2]
}

proc print_user {} {
	puts $users::username
	puts $users::groups

}

proc test_query {} {
#   $::db my_select_all product

set data [dict create id "51" name "testing ' product" default_price "23423423" price2 "2452352345" price3 "123456.25" fk_category "Hardware" fk_tax "IVA"]
$::db my_update_all product $data

}

proc test_print {} {
	set print_data [dict create]
	for {set d 0} {$d < 10} {incr d} {
		dict append print_data $d [dict create id $d name "Some name or desc" price "6482$d"]
	}
# 	set print_data [dict create id "Max is tha best hacker in CV"]
	set sdata [dict create client "max" my_table $print_data]
	set pdf [my_print new models/helder_client_balance.xml $sdata]

}